n = 0

For i = 0 To (1000000-1)
    n = n + 1
Next

WScript.Echo n
